home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / satellit / orbits / sgp4_pl2 / minmax.pas < prev    next >
Pascal/Delphi Source File  |  1992-09-03  |  1KB  |  69 lines
  1. Unit MinMax;
  2. {           Author:  Dr TS Kelso }
  3. { Original Version:  1992 Jun 29 }
  4. { Current Revision:  1992 Sep 03 }
  5. {          Version:  1.02 }
  6. {        Copyright:  1992, All Rights Reserved }
  7. {$N+}
  8.  
  9. INTERFACE
  10.  
  11. Function IMin(arg1,arg2 : integer) : integer;
  12. Function IMax(arg1,arg2 : integer) : integer;
  13. Function RMin(arg1,arg2 : real) : real;
  14. Function RMax(arg1,arg2 : real) : real;
  15. Function DMin(arg1,arg2 : double) : double;
  16. Function DMax(arg1,arg2 : double) : double;
  17.  
  18. IMPLEMENTATION
  19.  
  20. Function IMin(arg1,arg2 : integer) : integer;
  21.   begin
  22.   if arg1 < arg2 then
  23.     IMin := arg1
  24.   else
  25.     IMin := arg2;
  26.   end; {Function IMin}
  27.  
  28. Function IMax(arg1,arg2 : integer) : integer;
  29.   begin
  30.   if arg1 > arg2 then
  31.     IMax := arg1
  32.   else
  33.     IMax := arg2;
  34.   end; {Function IMax}
  35.  
  36. Function RMin(arg1,arg2 : real) : real;
  37.   begin
  38.   if arg1 < arg2 then
  39.     RMin := arg1
  40.   else
  41.     RMin := arg2;
  42.   end; {Function RMin}
  43.  
  44. Function RMax(arg1,arg2 : real) : real;
  45.   begin
  46.   if arg1 > arg2 then
  47.     RMax := arg1
  48.   else
  49.     RMax := arg2;
  50.   end; {Function RMax}
  51.  
  52. Function DMin(arg1,arg2 : double) : double;
  53.   begin
  54.   if arg1 < arg2 then
  55.     DMin := arg1
  56.   else
  57.     DMin := arg2;
  58.   end; {Function DMin}
  59.  
  60. Function DMax(arg1,arg2 : double) : double;
  61.   begin
  62.   if arg1 > arg2 then
  63.     DMax := arg1
  64.   else
  65.     DMax := arg2;
  66.   end; {Function DMax}
  67.  
  68. end.
  69.